home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / CGraphX_DevKit.lha / CGraphX / Modula / txt / CyberGraphXD.def next >
Encoding:
Modula Definition  |  1995-12-17  |  5.3 KB  |  178 lines
  1. DEFINITION MODULE CyberGraphXD ;
  2.  
  3. (*$ IMPLEMENTATION := FALSE *)
  4.  
  5. (*
  6. ** $VER: CyberGraphXD.def 1.1 (17.12.95)
  7. **
  8. ** conversion done by Olaf Peters <olf@informatik.uni-bremen.de>
  9. **
  10. ** NOTE:
  11. **
  12. ** These interfaces are completely untested, if you should discover bugs,
  13. ** please eMail me!
  14. **
  15. ** $HISTORY:
  16. **
  17. ** 17.12.95  1.1   : turned all tagdefinitions into enumerations
  18. **  4.12.95  1.0   : initial
  19. **
  20. *)
  21.  
  22. FROM SYSTEM   IMPORT  ADDRESS ;
  23. FROM UtilityD IMPORT  tagUser ;
  24.  
  25. IMPORT    ed : ExecD,
  26.           gd : GraphicsD ;
  27.  
  28. (*                                                          *)
  29. (*  Definition of CyberModeNode (Returned in AllocModeList) *)
  30. (*                                                          *)
  31.  
  32. TYPE
  33.   CyberModeNodePtr = POINTER TO CyberModeNode ;
  34.   CyberModeNode = RECORD
  35.     node           : ed.Node ;
  36.     modeText       : ARRAY [0..gd.displayNameLen] OF CHAR ;
  37.     displayID      : LONGCARD ;
  38.     width,
  39.     height,
  40.     depth          : CARDINAL ;
  41.     displayTagList : ADDRESS ;  (* taglist with extended ModeID information *)
  42.   END (* RECORD *) ;
  43.  
  44. (*                                  *)
  45. (* Parameters for GetCyberMapAttr() *)
  46. (*                                  *)
  47.  
  48. TYPE
  49.   CmaTags = (cmaDummy := tagUser,
  50.              cmaXMod,               (* function returns BytesPerRow if its called with this parameter *)
  51.              cmaBPPix,              (* BytesPerPixel shall be returned *)
  52.              cmaDispAdr,            (* do not use this ! private tag *)
  53.              cmaPixFmt,             (* the pixel format is returned *)
  54.              cmaWidth,              (* returns width in pixels *)
  55.              cmaHeight,             (* returns height in lines *)
  56.              cmaDepth,              (* returns bits per pixel *)
  57.              cmaIsCyberGfx,         (* returns -1 if supplied bitmap is a cybergfx one *)
  58.              cmaIsLinearMem         (* returns -1 if supplied bitmap is linear accessable *)
  59.   ) ;
  60.  
  61. (*                                 *)
  62. (* Parameters for GetCyberIDAttr() *)
  63. (*                                 *)
  64.  
  65. TYPE
  66.   CidaTags = (cidaDummy := tagUser,
  67.               cidaPixFmt,           (* the pixel format is returned *)
  68.               cidaWidth,            (* returns visible width in pixels *)
  69.               cidaHeight,           (* returns visible height in lines *)
  70.               cidaDepth,            (* returns bits per pixel *)
  71.               cidaBPPix             (* BytesPerPixel shall be returned *)
  72.   ) ;
  73.  
  74. (*                              *)
  75. (* Tags for CyberModeRequest()  *)
  76. (*                              *)
  77.  
  78. (*            *)
  79. (* FilterTags *)
  80. (*            *)
  81.  
  82. TYPE
  83.   CmrTags = (cmrDummy := tagUser + 40000H - 1,
  84.  
  85.              cmrMinDepth,    (* Minimum depth for displayed screenmode   *)
  86.              cmrMaxDepth,    (* Maximum depth  "       "        "        *)
  87.              cmrMinWidth,    (* Minumum width  "       "        "        *)
  88.              cmrMaxWidth,    (* Maximum width  "       "        "        *)
  89.              cmrMinHeight,   (* Minumum height "       "        "        *)
  90.              cmrMaxHeight,   (* Minumum height "       "        "        *)
  91.              cmrCModelArray,
  92.  
  93.              cmrWinTitle,
  94.              cmrOKText,
  95.              cmrCancelText,
  96.  
  97.              cmrScreen       (* Screen you wish the Requester to open on *)
  98.   ) ;
  99.  
  100. (*                            *)
  101. (* Tags for BestCyberModeID() *)
  102. (*                            *)
  103.  
  104. (* FilterTags *)
  105.  
  106. TYPE
  107.   CbmidTags = (cbmidDummy := tagUser + 50000H - 1,
  108.  
  109.                cbmidDepth,
  110.                cbmidNominalWidth,
  111.                cbmidNominalHeight,
  112.                cbmidMonitorID
  113.   ) ;
  114.  
  115. (*                                    *)
  116. (* definition of divers pixel formats *)
  117. (*                                    *)
  118.  
  119. TYPE
  120.   PixelFormats = (pixfmtLUT8 := 0,
  121.                   pixfmtRGB15,
  122.                   pixfmtBGR15,
  123.                   pixfmtRGB15PC,
  124.                   pixfmtBGR15PC,
  125.                   pixfmtRGB16,
  126.                   pixfmtBGR16,
  127.                   pixfmtRGB16PC,
  128.                   pixfmtBGR16PC,
  129.                   pixfmtRGB24,
  130.                   pixfmtBGR24,
  131.                   pixfmtARGB32,
  132.                   pixfmtBGRA32,
  133.                   pixfmtRGBA32
  134.   ) ;
  135.  
  136. (*                                                        *)
  137. (* SrcRectangle formats defines for xxxPixelArray calls() *)
  138. (*                                                        *)
  139.  
  140. TYPE
  141.   RectFormats = (rectfmtRGB := 0,
  142.                  rectfmtRGBA,
  143.                  rectfmtARGB,
  144.                  rectfmtLUT8,
  145.                  rectfmtGREY8
  146.   ) ;
  147.  
  148. (*                                    *)
  149. (* Parameters for CVideoCtrlTagList() *)
  150. (*                                    *)
  151.  
  152. CONST setvcDPMSLevel  = 88002001H ;
  153.  
  154. TYPE
  155.   PowerManagement = (On := 0,   (* Full operation                             *)
  156.                      Standby,   (* Optional state of minimal power reduction  *)
  157.                      Suspend,   (* Significant reduction of power consumption *)
  158.                      Off        (* Lowest level of power consumption          *)
  159.   ) ;
  160.  
  161. (*                              *)
  162. (* Tags for LockBitMapTagList() *)
  163. (*                              *)
  164.  
  165. TYPE
  166.   LbmiTags = (lbmiDummy := 84001000H,
  167.  
  168.               lbmiWidth,
  169.               lbmiHeight,
  170.               lbmiDepth,
  171.               lbmiPixFmt,
  172.               lbmiBytesPerPix,
  173.               lbmiBytesPerRow,
  174.               lbmiBaseAddress
  175.   ) ;
  176.  
  177. END CyberGraphXD .
  178.